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DU CARACTERE 


LE CANABD QUI FA 


EDITORIAL 


Ecrire à L'aide d'un traitement de texte est plus RESEAUX, IA, SYSTÈMES EXPERTS, etc... seront de plus en 
vaigrisant 2° pivs commode qgu'eves une Simc'e machine à plus sur les cartos de visite d'une majorité d'entre vous, 


écrire. Pourtant. (l Se vent touicurs es machines d cs place d'une reyye comme JEDI est de plus en plus 
écrire, parfois plus chères Oqu'ur ordinateur, Petit nécessaire. far chacun aura toujours une petite question à 
pastiche publicitaire: "Nr, échangeriez-vous votre résoudre; car Le meilleur mode d'emploi laissera RUES 
traitement de texte contre deux machines à écrire dans L'ombre une instruction obscure: ca” Le LOGICIEL 


ECRIOBROUILLON?", Non! Echangeriez-vous JEOI contre deux devient plus important que Le materiel. 


MIEUXDISANTUNCULTUREL? | | 

k Alors encore une fois, et pour que ce ne soit pas La 
Et si nous parlons informatique dans JE], nous savons dernière, si vous avez des idées, faites-les connaitre, 
également exploiter cette informatique pour miesv en  nubliez-les dans JENT 
parler. Dans un univers où PAO, DAO, EAD, TELEMOTIQUE, 
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FORTHLOG IT 
par Marc PETREMANN 


Qu ve des commandes consécutives à .ë Letî"e CL secetai"e 
ge mois c'avri, 97, il est «ce notre cevoir de vous 
expriquer en détaii Les “pnctionnatités de FORTHLOG Ii. Cet 
articte n'est pas un Cours d'initiation aux systèmes 
experts, mais Seulement un commentaire qui survole tes 
possibilités de Ce nouveau togiciel. 


à ———— 


LE PRODUIT FORTHLOG II 


Dans Le n°23 du magazine, nous diffusions un générateur de 
systeme expert nommé FORTHLOG. Conçu au départ pour tourner 
sur un système COMMODORE, it est adaptable sur Les autres 
versions de FORTH. C'est Ce que n'a pas manque de faire 
L'auteur, Francis LEY, qui l'a installe en F83 sous MSDOS 
et en y apportant des améliorations. 


Parrallélement, Le manuel a été tapé, illustré et indexé. 
IL sera mis à jour en fonction des diverses modifications 
suggérées par Les utilisateurs, Le groupe de travail ou Le 
concepteur. 


Actuellement, des sociétés renommées utilisent déjà 
FORTHLOG 11, dont CAP SOGETI SYSTÈMES (division Mulhouse), 
UNI-META (Longwy) et Le MINISTERE DES FINANCES (Service des 
Bâtiments, Paris). 


Pour rappel, FORTHLOG II travaille en chaînage avant et 
arriere, utilise des coefficients de pondération, ta 
notation algébrique infixée et Le chainage des bases de 


connaissances. 
Le produit FORTHLOG II comprend: 


- un programme F83 sans Les extensions développeur 
(METABG, KERNEL86, CPU8086, EXTEND8, UTILITY)J. 

- Le Logiciel FORTHLOG II (blocs 1 à 100), des exemples 
d'utilisation (blacs 120 à 200). 


PRISE EN MAIN 
La maitrise de FORTHLOG II nécessite déjà une certaine 
connaisance de systèmes experts. Pour ce faire, reportez- 


vous aux ouvrages existants dans ce domaine. 


FORTHLOG II est encore entaché de petits inconvénients qui 
gisparaitrons dans Les versions futures, Il faut notamment 


compi.er ie Dioc 96 Ligisor d'une Dase ce cinraissance 
avant de L'exploiter. Ce Digc GE Liaisgn contient Ln 
certain nombre de parametres qu'it faut initiatiser 
manuettement, Exemple de bloc de Liaison de La base de 


connaissance du calcul d'un bulletin de paie: 


Scr # 126 

\ ES PARAMETRES FORTHLOG { LEY) 

( NUMERO OÙ 1ER BLOC POUR GROUPE DE REGLE DE NIVEAU *,2,3 ? 
0 #PRE_NIVA ! 122 #PRE_NIV2 ! 124 #PRE_NIV3 ! 


{ NOMBRE MAXIMUM DE REGLE POUR GROUPE DE NIVEAU 1,2,3 ) 


G #NB_REG? ! 12 4#NB REG ! 12  4NB_REG3 ! 
€ NUMERO OU 1ER BLOC POUR BASE DE FAITS ) 
124 #PRE_ FAIT ! 


€ NOMBRE MAXIMUM DE BLOC POUR BASE DE FRITS ) 
+ #NB BLOC F ! 


Pour activer La base de connaissance OL catcul 
bul.etin de paie, it faut taper 120 LORD. 


IL existe trois niveaux de régles: 


- Les regies UNIVERS 
- Les regtes CONTEXTE; dans notre 
situent dans Les piocs ‘22 et 123. 
- Les régles RESULTAT; dans 
occupent Les blocs 124 et 125. 


exempie, eciles 5e 


notre exemple Piles 
fois dans FORTHLOG. 


infixée et une en 
inverse), ceci pour 


Attention, cet exempte est défini deux 
Une version en notation aigébrique 
notation RPN {Notation polonaise 
permettre une comparaison, 


La dase de faits est définie dans Le bloc 12%. Les faits 
initialisent Les variables utilisées dans Les règles, mais 
permettent également de contrôler Les actions du système 
pxaert. SxempLE: 


$SREF Quet type de cotlaborateu” 7. CCR 
SAFF Réponses possibies -TECHNICIEN , CADRE- * 

CR PERSON $7AF CR 
SAFF Salaire de base en Frs ? " CR SAL_BASE $?7AFN CR 
SAFF Nbre ce jour de congé ? " CR CONGE S?AFN CR 
sAFF Nbre de jour d'absence ? * CR ABSENCE S?2AFN CR 
SAFF Nbre de ticket restaurant ? " CR T_RESTO $?AFN 
CR 17 TAUX_SOC SAF-N 
5 TAUX_RETR $SAF-N 


1ci, La primitive FORTHLOG SAFF permet d'afficher Le 
contenu d'une chaine de caractères en mode interprétation. 
Sans elle, tout mot rencontre ne faisant pas partie du 
vocabulaire courant serait transforme en une variable de 
type SVARIABLE, ce qui est Le Cas de PERSON, SAL_BASE, 


CONGE, etc... 

Les autres mots FORTH sont exécutés de manière normale. La 
syntaxe des commandes FORTHLOG est volontairement 
"complexe", ceci pour éviter Les confusion entre Les noms 


de $variable, Les primitives FORTH et vos propres 
définitions. Elles sont pour La majorité précédées du 
signe $ donc facilement identifiables: 


$?aF S?AFN s" $° $< 
$? $= $AF $AF-N $AFF 
SATTACH $CF $FIN $NON sou 
$STOP 


Échappent à cette syntaxe, Les primitives: 
SI ALORS 


Dans Les faits, rien n'empêche de genérer un dessin si 
vous avez implanté tes fonctions grapniques en F83. Il en 
est de même pour Les interfaces série, //, souris, palette 
graphique, etc... Le résultat d'une action peut être 
affecté à une $variable. Exempte, soit Le mot JOYSTICK 
chargé de délivrer La position du manche: 


JOYSTICK € --- n de C0..71 
...définition de JOYSTICK... : 


Dans Les faits, on utilisera JOYSTICK ainsi: 
JOYSTICK MANCHE S7AFN 
et La $variable MANCHE utilisée cans one règle: 


SI MANCHE * $:= 

ALORS S$SAFF Vous allez en direction NE " CR 
On peut également, apres avoir déclaré Les variables 
adéquates dans Les faits, décrire ies règles: 


S1 MANCHE ? $= 
ALORS $[ SENS @ + 1 1$ 
SI MANCHE 7 $= 
ALORS ${ SENS & - 1 1$ 


où nous illustrons L'emploi de La notation 


infixée. 


également 


Voici pour L'exemple du calcul d'un putletin de paie, Les 


règles contrôlant L'expertise: 


SI SAL_BASE O0 $= 
QLOPS CR SAFF SALAIRE DE BASE ERRONE STOP !1" £STOP 
SI CONGE 0 4 

ALORS $2 SAL_BASE / 2 JS 

SI CONGE 0 5° 

aLORS $£ VAL_JOUR CONGE * 


VAL_JOUR_CONGE SAF-N 


CONGE J$ RET_CONGE SAF-N 
RET_CONGE PLUS CONGE SAF-N 
SI AGSENCE 0 4) 

ALORS $£ GAL BASE / 22 ]$ 
51 SAL_BASE 

ALORS SAL_BASE BRUT S$AF-N 
SI RESENCE 0 $» 

ALORS $£ VAL_JOUR_ ABS » ABSENCE 3$ RET_ABS $RF-N S[ BRUT - 
RET_ABS 19 BRUT $AF-N 


VAL_JOUR_ABS $AF-N 


S1 BRUT 
ALORS $C € BRUT / 100 ) * TAUX_SOC J$ CHARG_SOC $RF-N 


ie 


Jeri n°5F- Juin 438% 


SI BRUT 

ALORS $C © BRUT / 00 } * TAUX_RETR 1$ CHRRG_RETR $AF-N 

SI BRUT 

ALORS $C © BRUT - CHARG_SOC ) - ( CHARG_RETR ) 1$ NET $AF-N 


SI T_RECTO 9 $> 8 PERSON $' TECHNICIEN" $= 
ALORS $2 T_RESTC # 17 24 VAL_RESTO $AF-N 
SI T_RESTO 9 $) & PERSON $' CADRE‘ $: 
ALORS $[ T_RESTO * 13 J$ VAL_RESTO $AF-N 
SI VAL_RESTO 0 $> 

ALORS $C NET - VAL_RESTO 1$ PAYER S$SAF-N 

et qui sont Les règles décrivant Le contexte. 


SI PAYER 

ALORS $AFF APPOINTEMENT * SAL_BASE 5 .R CR 

SI PAYER 

ALORS $AFF CONGES RET. " PLUS CONGE 15 .R CR 
SI PAYER 

ALORS $AFF CONGES PAYES * PLUS CONGE 5 .R CR 
SI PAYER 

ALORS $AFF ABSENCE RET. * RET_ABS 15 .R CR 

SI PAYER 

ALORS $SAFF BRUT FISCAL “ BRUT 5 .R CR 

SI PAYER 

ALORS $AFF CHARGES SOC. * CHARG_SOC 15 .R CR 
SI PAYER 

ALORS SAFF RETRAITE “ CHARGLRETR 15 .R CR 
SI PAYER 

ALORS S$AFF NET * NET S .R CR 

SI PAYER 

ALORS $AFF RESTAURANT " VAL_RESTO 15 .R CR 
SI PAYER 

ALORS $AFF NET A PAYER * PAYER 5 .R CR 


et qui sont les règles délivrant tes résultats, 


Cette base de connaissance ne peut étre traitée en chainage 
arriére, car elte dépasse La simple logique 
propasitionnelle (nommée égatement Logique d'ordre 0). 


En chainage avant, on vérifie toutes Les règtes à partir 
des faits existants et on poursuit l'expertise jusqu'à 
saturation“ des règles. 


Dans Le cas de FORTHLOG II, une régle de niveau 1, c'est à 
dire du niveau CONTEXTE peut déclencher l'attachement de 
une ou plusieurs bases de connaissances de type 2 et 3: 


C1 
[symptomes univers 
R1 déclenche C2 
R2 déclenche C3 


| R3 déctenche C4 
Î 


&n décienche Cn 


NIVEAU 1 


NIVERU 2 


déclenchèes est 
prés de 20Mo 


ainsi 
disque, 


Le nombre de règles pouvant être 
“infini (dépend de La capacité du 


pour un disque dur...). 


Les rêgtes doivent faire partie du même fichier FORTH géré 
sous forme de blocs. La Limitation du nombre de régles 
(actuellement 100) peut ètre modifié en retouchant Les 
variables du programme source FORTHLOG. Cependant, Les 
performances s'en ressentiront. 


LES PRINCIPES DE FORTHLOG 


FORTHLOG tourne autour d'un principe essentiel, celui de 
$variable. Si un mot est rencontré et que ce n'est ni un 
nombre ni un mot du vocabulaire courant, it est transformé 
en $variable. Pour créer une S$vuarianie, it suffit de !a 
nommer dans La base des faits. Pour exemple, soit un 
circuit TTL constitué de quatres portes NAND Ctype TI 
7407): 
E — 
NAND 5 


Circuit: 


} 0 d 


pd pi 


+5 A7 A2 AS B1 82 BS 


SË 
On déclare Les faits A1, A2 et AS en tapant dans Le bloc 
destiné aux faits: 


“A1 $AFN 
“ A2 S$SAFN 


RFF Position de La borne A1 - 0 ou 1 - 
AFF Position de La borne A2 - 0 ou 1 - 
AS : 


Les règles contrôlant Les sorties sont décrites à partir 
de La table de vérité d'une porte NAND: 


AT A 


ES - nn 
20. o0N 


Ce qui donne en FORTHLOG dans Les règles de contexte: 


SI A1 0 $= & A2 0 $- 
ALORS 1 AS $SAF-N 
SI AT 0 $= & A2 15$- 
ALORS 1 AS S$SAF-N 
SI A5 1 $= & A2 0 $:= 
ALORS 1 AS $AF-N 
SI AT 1 $= 8 A2 * $: 
ALORS 0 AS SAF-N 


Et permet de déclencher des règles résultat: 


SI AS O0 $-= 

ALORS SAFF La borne AS est inactive 

SI AS 1 $- 

ALORS $AFF La borne AS est active 

Si vous êtes patient, vous pouvez décrire un circuit 
beaucoup plus comptexe, Le dessiner et visualiser 
directement sur L'écran Les différentes vateurs du 
circuit. 

FORTHLOG traite Les valeurs Logiques, mais également Les 


grandeurs numériques et Les chaines de caractères. Aisni, 


en tenant compte de L'alimentation électrique dans 
L'exemple du circuit togique, on peut également définir Le 
fait: 


$AFF Valeur tension alim -en Volts x 10- " VOLTS $AFN 


et exploité dans L'univers des résultats: 


SI VOLTS 38 $« 
ALORS RFF" Circuit sous-alimenté, tension © 3,8V * $STOP 


entrer La tension en valeur entière. C'est 
valeur demandée est ajustée pour permettre un 
Pour faire une action plus complexe 


au niveau de La regie déclenchée 
insuffisante, on peur un mot: 


IL faut 
pourquoi La 
traitement efficace. 


par une tension 


: TENSION_INSUFFISANTE 
CR ." Votre tension d'alimentation est inférieure à 3,8 V“ 


CR CR ." Vérifiez Les points suivants:" 
GRi-5" 1 - intensité en sortie de régulateur" 
CR ." 2 - valeur de La résistance tampon“ CR ; 


et utilisé dans La règle RESULTAT 


1 VOLTS 38 $4 
ALDRS TENSION_INSUFFISANTE $STOP 


Voilà, j'ai fait mes deux pages... 
Les utilisateurs de FORTHLOG II sont invités à poser des 


questions, nous faire part des systèmes experts qu'ils 
mettent au point, exprimer des remarques et des 


suggestions. Selon Les cas, nous Les diffuserons dans JEDI 


ou en ferons part au(x) intéressé(s)(es), 
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HANDLER TU 58 
par 
Mme M.J. PEYRIN 
RIOM LABORATOIRES - CERM 


Q 
0 \ interface TUS8 de DEC avec PCISIZ 
{ FORTH DEFINITIDNS 
è HEX 
3 VARIABLE COMPK E ALLOT 
& VARIABLE MBYL VARIABLE NELL 
5 VARIABLE SFLG VARIABLE SNBDF 
& 
7 CODE INIT O # AH MOV G # DX MOV E3 # AL MOV 14 INT NEXT C; 
& 
9 CODE HRCH O # DX MOV AX POP 1 # AH MOV 14 INT NEXT C: 
10 CODE RDCH 0 # DX MOV 2 # AR MOV 14 INT FF # AX AND PUSH NEXT C; 


liaison RSS {6JUN87MIP 


VARIABLE BLUPBLC EGQ ALLOT 
VARIABLE PTRDP 
VARIABLE EPMES OA ALLOT 


à INTACTU INIT 4 HRCH 4 WACH BEGIN ROCH 10 = UNTIL ; 
=) 


Î 
9 \ calcul checksum ,init commande packet 
CODE CHSM € enbdp sflg pt ---checksu) 

0! POP DX POP BX POP BL DH MOV BL BH MOV 1 # BH AND 1 # BH CMP 
ü= IF BL DEC BH DEC © CBX4D13 AX MOV FF # AX AND CLEC AX DX ADD 
0 # OX ADC THEN BEBIN BX DEC BX DEC 0 # BX CMP O}= MHILE 
6 CEX4DI) AX MOV CLC AX DX ADD G # DX ADC REFEAT 
DX PUSH NET C; 


1SJUNG7HIF 


: TCP Cfa) COMPK 2 DUP SFL6 C! OVER C! OA DUP SNBDF C! 
QVER 1+ C! DUP 4 + 4 ERAGE 
NBYL @ OVER & + ! NBLL @ OVER OA + ! 
DUP 2+ ROT OVER C! SNBDP C8 SFLG C& ROT CHSM SUAP OC + ! 
0E 0 DO COMPK I + C& HRCH LOI ; 
_) 


D \ lecture-ecriture data packet,code succes LOJUNA MIE 
: TRDP ( checksum---} SFLG CE WRCH GHBDF C& DUP WRCH QG DO 
RTRDP @ I + C@ WRCH LOOP DUP FF AND ARCH FLIF FF AND WRCH ; 


: INIL 0 TCP RUFBLC PTRDF ! ; 
? RINIT BEGIN 4 WACH RDCH 10 = UNTIL ; 


: DTNB NEYL DUP @ DUP 86 } IF 80 DUP SNBDF C! - ELSE 
SNBDP C' 0 THEN SA : ; 


# STKDT ( -—snbdp checksum) RDCH DUP DUF SNBDE C' 0 DD 
RDCH PTRDP & I + C! LOOF ROCH RDCH FLIR + ; 


: PEPMES EPMES PTRDP ! STKDT 2DROP 
EPMES + C@ DECINAL . NBLL @ . HEX CR ; 
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Voici un programme très professionnel et d'usage très 
spécifique réalisé par La Sté RIOM LABORATOIRES. Il permet 
de transférer des données sur un tecteur/enregistreur de 
cartouches TU 58 via L'interface série d'un PC1512. 


6 
\initialisation du TUS5A 16JUN&7MTP 
programme LECTURE QU ECRITURE d'un bloc TU soit 518 bytes 
Certains tests ne sont pas mentionns dans ce programme 
COMFK :buffer commande packet BUFBLC:buffer de donnees 
si nbre de donnees a lire ou a ecrire )512 redefinir BUFBLC 
NBYL : nbre de bytes a lire où ecrire NBLL:n°bloc 
SFLG: flag operation SNBDP:tampon nbre de bytes PTRDP: pointeur 
CODE INIT init liaison RS22 Bbit S600bauds pas de parite 
1 bit de stop utilise interruption 20 
CODE URCH envoi 1 caractere DÂin°canal ALicarac AH:i 
CODE ROCH lit 1 caractere DXin°canal AH:2  AL'carac AHietat 


CODE INTACTU init TU58 envoi & fois (4 attend carac "continu" 


. 
\ calcul cheksun 
CODE CHEM 
addition des donnees 2 bytes par à bytes eur 16 bit 
avec recuperation si retenue dans le LEE 


init contand packet LSJUNETMIR 


: TCP init commande packet 
transmission du commande packet 


ra] 
Le] 
LEJUNATMJP 
: TROP ecriture des dormees contenues dans le buffer et de la 
checksum 


 INIL init command packet lecture et le buffer lecture 
: RINIT reinitialisation TU5B 


: DINB caleul du nbre de bytes a tranemettre maxi 188 
et remise a jour du nbre restant 


: STHDT lecture du nbre de bytes a lire et de ces donneps 
stockage de ces donnees dans le buffer et recuperation cheksun 


: PEPHES lecture du END-PACKET 
et impression du code succes et du n° du bloc 


3 3 
9 \ Lecture d'un bloc , positionnement ISJUN87MIJF \ Lecture positionnement LSJUNS7MJP 
1 : LECTURE : LECTURE pour plusieurs bloc redefinir BUFBLC 
8 HUFBLC PTRDP ! Necessite init NBLL,NBYL les donnees sont lues par paquet de 128 
3 O0 COMPK 3 + C! INIL init commande packet lecture 
4 BEGIN RDCH DUP SFLG C' 2 = NOT MHILE SFLG CB i = lecture test si END-PACKET si DATA PACKET 
S IF STKDT SWAP 1 PTRDF & CHSM = NOT stockage des donnees ,calcul checksum si pas correcte 
6 IF RINIT INIL ELSE SNBDP C& PTRDP +! THEN reinitialisation si GK init buffer suivant 
7 THEN REPEAT PEPMES ; continu lecture jusqu'a END-PACKET avec impression code succes 
8 
3: POSBLC 6 COMEK 3 + C' S TCP BEGIN RDCH © = UNTIL PEPMES ; : FOSBLE ( positionne TU58 au bloc specifie) 
19 --} necessite init de NBEL 


4 10 
0 \ ecriture TUS8 ISJUNS7NJE Ecriture LSJUNS7NJE 
4 : SPECRIT : SPECRIT 
è ot COMPK 3 + C' 3 TCP init commande packet ecriture 
3 BUFALC PTRDP ! SG SNEDP C' BEGIN ROCH DUP £ = NOT init buffer ecriture test si pas END-PACHET 
4 WHILE 10 = IF SNEDP CA PTRDP +1 1 SFLG C' DTHE alcrs $1 "continu" determine nbre de donnees à ecrire 
3 SNEDP CE { PTRDP & CHGK TRDF THEN REFEAT DROP FEFMES : calcul checksum et transmet DATA-FACKET par paquet de 158 max 
6 jusqu'a END-PACKET et imprime code succes 
7 
B: ECRITURE : ECRITURE necessite init NBLL,NEYL 
9 NEYL @ BEGIN SPECRIT EFMES {+ C@ 4 = les donnees sont ecrites par paquet de 128 bytes maxi 
10 HHILE BUFHLC & 2 NEYL ! INTACTU LECTURE si le code succes = not @ pseudo lecture et reinitialisation 
11 BUFBLC ! DUP NBYL ! REPEAT DROP ; pour ecriture 
{2 
13 DECIMAL 


14 
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Fes/mMmSDOS: Edi teur PFleæin Er an. 
A. Jaccomard 


[ 3 
à Cet éditeur “plein écran" est une adaptation du VEDITOR - Ctl-W efface l'écran courant et est très efficace .… 
1 contenu dans UNIFORTH, noyau Forth du dosaine public. 11 a été - F18 propose 3 fonctions: F <txt} recherche La chaîne ’txt”, 
2 adapté à F83 et des fonctions ont été ajoutées. R €txti} <txt2) resplace ’txtl? par 'txt2!, 
3 Ces fonctions sont accessibles par les touches curseur, Fi-Fi8 D txt détruit ‘txt’; avec desande de confirsation. Le 
4 aussi par CTL. Elles sont auto-explicites, d'autant qu'un ’senu” presier caractère entré est considéré casse délisiteur, ce n’est 
S se trouve affiché en persanence. Quelques explications ne seront pas obligatoiresent un espace. 
b peut-être pas inutiles : - Sh-F18 fait une sauvegarde des blocs aodifiés sans sortir. 
7 - Sh-Fi perset l'accès à Forth, retour sous VEDIT en répondant - ESC sauve et sort, Cti-X sort sans sauver, 
8 ‘N° à "On continue?*, si les piles n'ont pas été aodifiéess au- - l'appui sur touche non affectée fait sortir de VEDIT, 


9 tresent, sortie; pour ré-entrer, tapez ’ED”. - Ja bonne exécution des cossandes vidéo suppose La présence sur 

18 - F2 déplace d’un coup un groupe de lignes. la disquette des fichiers CONFI6.SYS et ANSI.SYS, 

11 - F4/5h-F4 persettent le déplacesent ligne par Ligne entre biocs Ces blocs devraient tre intégrés à UTILITY.BLK en resplace 

12 - F3 suivi de ’nn' affiche le bloc ’an’. sent de EDITOR, pour être cospilés dans un nouveau noyau, 

13 - F5/Sh-F5 sont les SPLIT et JOIN du F83 d’origine. À défaut, VEDIT peut être chargé "par dessus" sans inconvénie 

14- F7/Sh-F7 et F8/Sh-F8 déplacent/effacent sot à aot. nt autre que de place perdue. 

15 - F9/Sh-F9 insère/supprise La ligne courante. À. Jaccosard, Mars 87. 
! 4 

8 \ VEDIT, caspatibilité: CASE à CASEND. 23Mar87JaD \ VEDIT: variables, 23Nar87Ja) 

{ ONLY FORTH ALSD DEFINITIONS 2VARIABLE CLRSZ VARIABLE ATTR 

2 VOCABULARY VEDIT VARIABLE  #STLINES VARIABLE  CURPOS 

3: SCASE R> DUP 2+ SHAP @ DR OR ; VARIABLE  ?NODE . VARIABLE DELIM 

4 $=: OVER = IF DROP R) 2+2R ELSE R) € DR THEN ; VARIABLE INSTGL VARIABLE  CHANGED 

GS: $): OVER IF DROP R) 2+R ELSE R)> @ DR THEN ; : HOME 6 @ PCGOTO ; 

ba Ses OVER D IF DROP R> 24R ELSE R) @ DR THEN ; 5 INIT 6 6223 CLRSZ 2! BATIR !; 

T5 $3;;  R) DROP ; 5 CLPGE CLRSZ 28 ATTR & CLRHIN ; 

8 : NOCASE DUP ; : VOD 27 EMIT 91 EMIT EMIT 109 EMIT ; \ ESCL"n"s 

9 + CASE COMPILE $CASE HERE @ , ; [MMEDIATE : NORN 48 VDO ; 

18: =: COMPILE $=: HERE 8 , ; IMNEDIATE : BRILL 49 VDO ; 

is COMPILE $: HERE 8 , ; IMMEDIATE : DIN 52 VOB; 

12: €: COMPILE $C: HERE 8 , ; INMEDIATE : CLIGN 53 VDO ; 

13::; COMPILE #53 HERE SAP ! ; IMMEDIATE ? INV 55 VDO ; 


14 : CASEND COMPILE R> COMPILE 2DROP HERE SNAP ! ; IMMÉDIATE 


15 --) ONLY FORTH ALSD VEDIT DEFINITIONS 
2 ) 
8 \ VEDIT : PCGOTO, CLRMIN, 23Nar87JaD \ VEDIT: TABNEN. 15Mar873aD 
L HEX 
2 CODE PC6070 15 col lig -- } \ positionne curseur, CREATE TABMEN 6 75 # ALLOT \ pré lig. de 75 car. 
3 DX POP DL DR MOV € ligne ) BX POP BL DL MOV { colonne } BLK @ BLOCK 5 64 # + TABMEN 6 75 # CMOVE 
L 2 HAH MOV Cn* fonct. } 8 # BH MOV ( n° page écran } \$ 
F] 18 INT NEXT D; &- -) CurUp CurDn Instbascins AnnteffCar Tab Hose/"Hose:d 
& CODE CLRHIN (6 lig-col lig-col attr -- } \efface écran, . ébli/BlcFin/*Fintfinli/Ble DEL:effCarPré FisinsEsp F2:deplig 
7 608 # AX MOV € AL=, AH=@6 )  BX POP € BH=oct, attrib. } Blc FâssautBlocféstransfli shFétinsili FS/shF5scoupe/colle F 
8 CX POP ( CH=lig. CL:col. coin sup. g. } éiliPréc shFéseffFinLigF7/shF7:Mpréc/eff FB/shFBiNsuiv/eff F9 
9 DX POP { DH=lig. Dzcol. coin inf. d. ) IshFsajout/supplig shFi:cedFtHF1@:aodeChaînes  shF19:Flush 
18 BP PUSH 18 INT BP POP NEXT C; Sorties: ESC:Sauve “X:Forth Blocs: PgUp/“Pgup:ticPr 
11 CODE LIS-T (5 -- code-touche : 8 ) éc/ierBle PgDn/"PgDn:BicSuiv/dernBic  “W:Wipe 
12 B# AH MOV 21 INT AH AH XOR 1PUSH C; 
13 DECIMAL 


14 222 +THRU 
19 2427 #THRU CR BRILL .{ VEDIT chargé.) NORM CR 


ë 9 

8 \ VEDIT: déplacesents curseur. LéMar87daD \ VEDIT: F#D, BKND, 15Mar87JaD 
1 

2:P+ ROT + -ROT + SWAP ; (5 nl n2 n3 n4 -- nl+tn3 n2+n4) : FD \ rech, sot suivant. 

3 : 61Y CURPOS @ C/L /MOD ; ($ -- col lig : pos. curs. } SCR @ BLOCK B/BUF CURPOS @ DO I OVER + C& BL <) 

Au .CUR GAY 4 1 P+ AT; (5 -- ) \ place curs, ds fenêtre. IF B/BUF I DO 1 OVER + CR BL = 

5: !CUR © MAX B/BUF 1- MIN CURPOS ! ; (Sn -- } IF L'!.CUR LEAVE THEN 

b + !'.CUR OUR .CUR ; (Sn--) LOUP LEAVE 

7: +CUR  CURPOS @ + OUR ; (Sn -- ) \ déplace curs. THEN LOOP DROP ; 

8 : L#t CURPQS @ C/L / 3 (5 -- lig } \ lig. courante du curs. 

9 +#LIN LH + C/L # OUR 3 (Sn -- ) \ ajoute ‘n° Lig. 5 BKND  \ rech. aot précédent. 

18 : +.CUR +CUR .CUR ; (Sn -- ) \ dépl, curs. SCR @ BLOCK CURPOS & 8 DO CURPOS @ I - 2DUP + CE BL 
11 5 .HON  G'.CUR ; \ positionne curs. en début fenêtre. IF DUP@ DO 2DUP I - + C8 BL = 
12 5 .CURR CURPOS @ 1+ DUP B/BUF © \ curs. 1 pas à dr. IF I -'.CUR LEAVE 
13 IF DUP CURPOS ! .CUR ELSE DROP THEN ; ï THEN LOOP LEAVE 
14 : .CURL CURPOS @ i- DUP @)= \oeurs, 1 pas à q. THEN DROP LOOP DROP ; 


15 IF DUP CURPOS ! .CUR ELSE DROP THEN ; 
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\ 


: LTOS HERE 308 + HSTLINES @ C/L # + ; | "pile" de lig, 


1 
VEDIT: LTOS, MENU, cadre. 


: MENU TABNEN 6 0 DD 


ï MENLL 


: SIDES 16 @ DO GI I+AT 


BI 18 + AT I 72 # OVER + 72 TYPE LOCP 
DROP 69 18 AT .* Bloci * 
45 7 AT FILE @ BRILL .FILE BRILL ; 
NORH \ré-aff. dern. lig. 
8 23 AT 572 + TABMEN + 72 TYPE BRILL ; 


1 2.R BL EMIT 
179 ENIT 68 I i+ AT 179 EMIT LOOP ; 


t DTLINE @ DO 198 EMIT LOCP ; 


IDOTL 192 EMIT 64 DILINE 217 EMIT ; 


5 SDOTL 169 EMIT 64 DTLINE 178 EMIT ; 


_ 


TBDOT JGAT SDOTL 317 AT IDOTL ; 
8 
VEDIT: déplacesents curseur. 


CLLINE @ DO BL EMIT LOOP ; 


t LINE C/L B/BUF #/M0D SCR 8 + BLOCK + : 


: PRBLK 


5 BLK 


_ 


: PSCR 


— 


: TCLINE 
2DUP 4 1 P4 AT LINE OVER + C/L ROT - -TRAILING ROT 


3 CHAR 


: CDEL 


: DCHAR 


: DELCHAR 


TYLINE 4 OVER [+ AT LINE C/L TYPE ; 

BLSTR 8 19 2DUP AT 72 CLLINE AT; 

BLCMD 6 23 2OUP AT 72 CLLINE AT ; 

(Sn--7) \Vaff, ‘n° lig. ds fenêtre. 
DO I TYLINE LOOP ; 

{S -- ) 
BRILL 73 18 AT SCR ? 16 @ PRELK .HON ; 
TYCHD {5 --) Vaff. { lig, de la ‘pile’. 

BLEND 2 23 AT #STLINES € 2 .R 
723 AT C/L TYPE .CUR ; 
VLST Vinit. en dessinant fenêtre. 
CLPGE NORH TBDOT SIDES MENU #STLINES @ 
IF LTOS TYCMD THEN .HOK ; 


12 
VEDIT: PUTL, GETL, PSCR, DISPLAY. 


PUTE \place lig. courante ds ’pile’. 
LINE UP LTOS C/L CNOVE 1 ASTLINES +! JYCND ; 
GETL 
#STLINES @ 
IF LINE DUP -1 #STLINES +! 
LTOS SWAP C/L CHOVE 4 L#R Î+ AT C/L TYPE 
#HSTLINES @ 
IF LTOS C/L - TYCMD 
ELSE MENLL  .CUR 
THEN  NODIFIED 
ELSE DROP THEN ; 
JL 18 AT SCR & 
DISPLAY 1 INSTGL ! 


2 SPACES 


TGLINSERT @ CURPDS ! .BLK ; 


13 
VEDIT: TCLINE, CHAR, CDEL, DCHAR, DELCHAR. 
(S f col lig -- } \ aff, ds fenêtre. 
IF it THEN TYPE 
{5 car -- } 
DUP EMIT SCR@ BLOCK CURPOS @ + C! 
CURPDS @ 1+ DUP C/L MOD 
IF CURPOS ! ELSE DROP Ï +.CUR THEN ; 
{5 -— ) 
1 6XY 2DUP LINE DUP 63 + -ROT + 2DUP 
= OVER 1+ -ROT MOVE BL SAP C' 
{8 car -- } \ insère un car, 
GXY 2DUP LINE OVER + SHAP 63 SWAP - OVER 
+ SWAP MOVE ROT 'CHAR @ -ROT TCLINE 
\ efface car. précédent, 
“1 +.CUR CDEL THEN ; 


.CUR ; 


MODIFIED 


GXY DROP !F 


\'aff. ble courant ds fenêtre. 


\ place en lig, cour. celle de la ’pile’, 


HOM ; Vaff, nt ble 


\ place ’car’ ds taapon et fenêtre. 


\efface car. ss curs et taapon, 


TCLINE NODIFIED ; 


NODIFIED ; 


14 


\ VEDIT: STAMP. 


CRE. 
!$ 
17? 


3 GET-ID ID fi 


: (QUI) 


10 


ATE ID 1 ALLOT ID 11 BLANK 

TAMP ID SCR @ BLOCK C/L + 18 - 19 CMOVE ; 

STANP CHANGED & IF STAMP THEN ; 

-TRAILING NIP 0: 

IF CR ." Entrez votre cachet: " 

11 8 DO ASCII . ENIT LOOP 11 

ID {1 EXPECT THEN : 
(S--) "Ja; 

UI {5 -- ) (QUI) TYPE SPACE ; 


23Nar87Jal 


BACKSPACES 


\ placez ici VOS initiales, 


ï SET-1D H? IF (DATE) € VEDIT ] ID SNAP CMOVE (QUI) ID 7 + SWAP 


CH 


th 


OVE THEN HELLO ; 
SET-ID 1S BOOT 
ODIFIED ?STAMP UPDATE ; 


\ Cachet placé autos. en ligne 8 après BOOT et SAVE-SYSTEN, 


\P 


\wV 


‘A 


: D 
I 
EL 
T 
TT 


IF 


our Le suppriser ?: Sh-F1 puis CHANGED OFF. 


ii 
EDIT: ADDL, DELL, TOLINSERT. 


DDL \insère une ligne blanche. 
L## DUP 14 00 
LINE C/L BLANK MODIFIED 14 LH PRELK ; 


ELL \ suppriae une Ligne. 
LH + 16 2DUP 
F SNAP DO I LINE DUP C/L - C/L CMOVE LOOP 
SE  2DROP 
HEN 19 LINE C/L BLANK MODIFIED 16 L#H PRBLK 


GLINSERT \ bascule d'insertion, 
6 24 AT INSTEL & 1 XOR DUP INSTEL ! 
." Insère" ELSE ," " THEN ; 


15 


: STRING 


23Mar87JaD \ VEDIT: chaînes. 


(S adr -- } 


DUP BEGIN 
KEY DUP DELIN @ = OVER 13= OR \ DELIM où CR, 


UNTIL 


84 


IF DROP ! 
ELSE DUP B= 
IF DROP RUBOUT 1- 
ELSE OVER C! {+ 
THEN 8 
THEN 
OVER - SWAP 1- C'; 


CONSTANT C/PAD 


: TEXA PAD C/PAD + ; 
 TEXB TEXA C/PAD + ; 


16 


 DFIND KEY 
: DREP 
: MATCH 


23Mar87JaD \ VEDIT: chaînes. 


DELTM ! TEXA 1+ STRING ; 
FIND TEXB 1+ STRING ; 
{5 adi 11 ad2 12 -- adriB } 


ROT OVER - DUP QC 


l 


1F 


IF DROP 2DROP 8 ELSE 1+0 
D0 2 PICK 2 PICK 2 PICK COMP 


I LINE DUP C/L + C/L CHOVE -1 


23har87JaD 


+L00P 


EUR ; 


23Mar87JaD 


\ place une chaîne ’cptée’ en adr. 


15Mar87J a 


Ventre ch. en TEXA 
Ventre ch. en TEXA et TEÏB. 


IF ROT {+ -ROT ELSE 2DROP @ LEAVE THEN 


LOCP 

F 2DROP &@ THEN 

THEN ; 

STR (S -- adriB } \ rech. ds taspon chaîne de TEXA. 


CURPOS & SCR @ BLOCK OVER + B/BUF ROI - 
TEXA COUNT MATCH ; 


JEN N° T1, Juin 1981 


8 


14 17 
8 \ VEDIT: CLREOL, DELSTR, ADDSTR, DELWD, KEY, RUBOUT, 15Mar87JaD \ VEDIT: chaînes. 23Har87Jab 
Î 
2 : CLREOL \ efface fin lig. : STRINFO 
3 CURPOS &@ C/L G6XY DROP - 8 DO BL 'CHAR LOUP !.CUR ; INV 28 18 DO & I AT 72 CLLINE LOOP 
4: DELSTR @ DO CDEL LOGP ; (Sn --} \eff. ’n° car. 18 18 AT 
S + ADDSTR @ DO DUP I + C@ CHAR LODP DROP ; ." Mode Chaîne: F, D, R Csep]CH1{sep]CH2{sep] " ; 
b : ?OUI {5 - $ : -27-E6C, -1=0, G=autre ) 
7 KEY DUP 27 = IF NEGBATE ELSE : STRNODE \ réponse -}, 8, ! dans ?NODE. 
8 SP& 1 UPPER ASCII O = THEN ; STRINFO BLSTR KEY SP@ 1 UPPER 
9 : REPSTR 8 DO DUP I + CB 'CHAR LODP DROP ; \ resplace ch. CASE ASCII F =: FIND -1;; 
19 : DELND | efface un sot. ASCII D =: FIND ®;; 
il SCR € BLOCK CURPOS & + ASCII R =: REP 13; 
12 BEGIN CDEL DUP CE BL = UNTIL DROP ; NOCASE =: .* Entrée incorrecte!!" 7 ENIT 658 À 
13: DKEY KEY DUP EMIT ; 15 -- k } RECURSIVE STRMODE ;; 


14 : RUBOUT BL EMIT BS ENIT ; CASEND ?HODE ! ; 
15 
18 21 
8 \ VEDIT: chaînes, 1SMar87JaD \ VEDIT: SCRE.OK?, JELK. 23Har47JaD 
1 5 MOVSTR  ($ -- } | reaplace ou efface chaîne. 2 SCRE,OK? (Sn -- : vérif, n° écr. valide )} DUP & 
2 TEXB C@ TEXA CA - IF DROP @ ELSE DUP CAPACITY - 1+ DUP &) 
3 CASE 6 =1 TEXB COUNT REPSTR ;; FF BLCND BRILL ." Extension ain. de " DUP . 
4 DUP BD: TEXB + TEXA C8 2DUP REPSTR + SNAP ADDSTR ;: ." nécessaire - entrez quant. désirée : * 
5 ABS DELSTR TEXB COUNT REPSTR ?IN BLEMD 2DWP ) 
6 CAGEND ; IF BLCHD 7 ENIT .® INSUFFISANT"  2DROP 
Te FISTR (S-- @-1:-1 -1) \ traite chaînes selon réponse. 758 AS BLCMD .HDM 
8  ?QUI DUP -27 €) IF ELSE MORE DROP SCR ! 
9 8 SAP = IF 1 +CUR ELSE ?MODE € THEN 
10 CASE -1 =: TRUE ;; ELSE DROP SCR ! 
il 8 =: TEXA C8 DELSTR ;; THEN ! \ pour boucle ’UNTIL’, 
12 1 z=5 NOVSTR ;; THEN ; 
13 CASEND THEN : JBLK \ saut vers l’écr. spécifié. 
14 ELSE DROP BLCMD .HOM TRUE TRUE THEN ; 75 18 AT ?IN SCR#.0K? 
15 IF DISPLAY FLSE PSCR THEN ; 
19 22 
& \ VEDIT: PROMPT. 17Mar87JaD \ VEDIT: SPLIT, JOIN. 15har87JaD 
13 PROMPT | sode Chaînes, 
2 BEGIN : SPLIT \ "coupe" lig. au curs, La place sur lig. suiv. 
J FSTR (-- adri8 } DUP = 6XY LINE DUP C/L + (col adli adiisuiv ) 
4 IF DROP INV BLCMD ." Pas trouvé...bloc suivant?® NORA -ROT + 2DUP - { adlisuiv adcar 1gr } 
5 ?OUT IF BLEMD 1 SCR +! DISPLAY 8 SDUP DR SWAP R) { adcar adlisuiv 1gr } 
ô ELSE TRUE TRUE \ sortie et .HOM. 1 +LIN ADDL CMDVE \ de adcar à adligsuiv sur lgr. 
1 THEN BLANK DROP -1 #LIN 16 LH PRBLK .CUR ; 
8  ELSE SCR @ BLOCK - 'CUR BLCHND 
9 INV ." Cette chaîne? (O/N/ESC): * NORH : JOIN \ "colle" Llig. suiv. à Lig. courante, 
18 «CUR FIXSTR GXY LINE DUP C/1 + -ROT 
{4 THEN + 2DUP - SDUP CHOVE NIP BLANK 
{2 UNTIL 16 LEE PRBLK .CUR ; 
13 NORM MENU BRILL IF .HON ELSE .CUR THEN ; 
14 
15 
28 23 
@ \ VEDIT: ?IN, INPUT, $EXECUTE, COMFTH. 23Mar87JaD \ VEDIT: TRANSLIN, BRING. 23Mar87Jab 
{5 7IN {5 -- n) \espile le nbr ‘n°’ entré au clavier. 
2 TEXA t+ STRING BL TEXA COUNT + C' 5 TRANSLIN (S ser 11 12 -- ) \Otransf. lig. sur lig. cour, 
3 TEXA @ DUP ROT CONVERT 2DROP ; SCR 8 DR  ROT SCR ! 2DUP 3} IF SNAP THEN 
4: INPUT (5 -- NX) \ coase ?IN, sans CR ni TEXA, 2DUP ?D0 I LINE LTOS C/L CHOVE 1 #STLINES +! -1 +L00P 
5 QUERY 32 WORD NUMBER? IF DROP R) SCR ! 
é ELSE 2DR0P RECURSE THEN ; ; SNAP - {+ @ ?D0 L#h GETL 1 +LIN LOOP MODIFIED ; 
72 $EXECUTE (5 adr gr -- )}  \ exécute les cdes de la chaîne. : BRINS \ cossande transfert de lignes. 
8 DUP #TIB ! TIB SNAP NOVE BLK OFF IN OFF INTERPRET ; BLCMD INY ." du bloc ? ” INPUT 
9: COMFTH (S -- ) À par sh-Fi : exécute une cde Forth. ." ère ligne ? " INPUT 
18 8 18 2DUP AT 6 88 # CLLIME AT .” dernière ligne ? “ INPUT 
it Re ©!CSP QUERY TIB SPAN @ $EXECUTE "D'accord ? (B/N/ESC)"  ?QUT BRILL 
12 CR." OK" CR ." On continue ? " ?QUI CASE -27 =: MENLL  SBRILL .HON ;; 
13 IF DROP RECURSIVE COMFTH -1 =2  TRANSLIN MENLL BRILL EUR 3; 
14 ELSE ?CSP RE <> ABORT" Pile Retour sodifiée" 8 =: 2DROP R> 2DROP RECURSIVE BRING ;; 
15 VLST BRILL DISPLAY THEN ; CASEND ; 
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24 vi] 
8 \ VEDIT: ?MOVE. 23Har87Ja) \ VEDIT: ?CHAR, 23Mar97Ja0 
f : 9NOVE \ cdes déplacats curs,, lig, et blocs. 
2 CASE 75 15 -Ÿ HCUR 8 35 (<-} 2: ?CHAR \ cdes d’édition de texte, 
3 F7 = À #CUR 8 ;5 (-)) CASE 
4 B® =: C/L +.CUR D 3:53  ( cursB } "bb =: FD 8 ;5 (F8) \ sot suivant, 
5 72 =: -b4+,.CUR 8 35  (cursh ) 63 =: BKND 8 ;3 (F7) \ aot précédent. 
$ 73 =: GCR & 1- SCR#.0K? 82 =: CINS 8 353 (Ins } \ aode "Insertion". 
7 IF DISPLAY ELSE PSCR THEN 8 33 { Pqlp } 83 =: CDEL 8 ;5  { Anaul ) \ efface sous curs. 
8 81 =: SCR @ 1+ SCR#, DK? 98 =: BKND DELND @ 33  { sh-F7 ) \ eff. aot préc. 
9 IF DISPLAY ELSE PSCR THEN 8 ;; ( Pgln } 91 =: DELND © ;5 (sh-F8 } \ eff. aot suivant. 
18 bi =: JBLK 8 33 (F3) 59 =: BL DCHAR @ ;3 (F1) \insère un blanc. 
il 64 =: -1 #LIN .CUR À 33 (F6) 84 =: COMNFTH 6 ;; Ush-F1 ) \ cde Forth. 
12 63 =: SPLIT 8 5 (F5) 68 =: STRNODE PROMPT 8 ;; {F18 ) \ aode “Chaînes” 
13 88 =: JOIN 8 35  {sh-F5) DUP GASEND ; 
14 79 =2 A 4LIN -1 CURPOS #! .CUR 8 3 ( Fin} 
15 11 =1 Lt C/LE !CUR 8 33 ( Hone ) --) 

25 28 
8 \ VEDIT: suite ?MOVE, ?CNTRL, 23Mar87JaD \ VEDIT: ?LINE, 23har87Ja) 
1 : QLINE 
2 93 =: SAVE-BUFFERS 9 33  ( sh-F18 } CASE 
3 DUP CASEND ; 67 =: ADDL .CUR 8 ;;3 (F9) \ ajaute 1 lig. 
4 92 =: DELL .CUR @ ;; ( sh-F9) Veff. lig, 
5 : 2ONTRL 62 = L#f PUTL .CUR 0 33 (F4) \transf. lig. 
& CASE 87 =: L#h GETL ,CUR @ 33  sh-F4) À ins, lig. 
7 23 =: SCRE BLOCK B/BUF BLANK .BLK MODIFIED 55 ( W ) 89 =: CLREUL B ;; ( sh-Fé } \ efface fin lig 
8 27 =: FLUSH DARK NORH DARK QUIT ;3 { ESC ) 64 =5 -1 #LIN OUR 0 53 F6) \ curs, lig. préc. 
9 24 =: DARK EMPTY-BUFFERS NORX DARK QUIT 553 { ctl-X ) 68 =: BRING @ ;; CF29)  \transf, blc/blc, 
19 8 =: DELCHAR ;s ( DE ) 132 =: 8 SCR ! .BLK 0 :; { “Pglp } \ ter bloc. 
il 13 =? { +LIN .CUR 35 ( Enter } 11B =: CAPACITY 1- SCR ! .BLK 0 35 € “PgD) \ dern. bloc. 
12 9 ={ 10 +CUR .CUR 55 {-)) 117 52 B/BUF 64 - !,CUR 8 33 € “Fin) \ curs. dern, lig. 
13 DUP CASEND ; 119 =: HN 8 35 © Shose) \ curs. ère lig. 
14 DUP CASEND ; 
15 

2b 29 
8 \ VEDIT: CINS. 23ar87JaD \ VEDIT: Entrée et sortie: (VEDIT), EDIT, ED. 23Mar87JaD 
1 VARIABLE LDERR LDERR OFF 
2 : CINS \'insertion chaîne de car, # (VEDIT) (Sn --} \ édite écran ’n’. 
3 TGLINSERT .CUR INIT DUP SCR ! 6 #STLINES ! VLST SCR&.0K? 
4 BEGIN LIS-T IF DISPLAY LDERR @ IF '.CUR EKND LDERR OFF 
5 CASE ELSE .HOM THEN 
ë Q =: LIS-T 82 = { Ins } | ELSE DARK ABORT THEN 
7 IF TGLINSERT .CUR 1 ELSE @ THEN ;; BEGIN LIS-T ?DUP 
8 8 =: DELCHAR @ 35  ( DEL ) IF DUP 324 
9 DUP 31 > IF ODCHAR ELSE DROP THEN @ DUP IF ?ENTRL ELSE (CHAR MODIFIED THEN @ 
18 CASEND ELSE LIS-T ?MOVE ?LINE ?CHAR 
if UNTIL NODIFIED ; THEN UNTIL ; ONLY FORTH ALSD DEFINITIONS 
12 : ED UC VEDIT } GET-ID SCR @ (VEDIT) ; 
13 : EDIT 1 7ENOUGH SCR ! ED; 
14 + (?QU) DISK-ERROR @ @= IF L VEDIT ] LDERR ON ED THEN ; 
15 * (700) 15 WHERE 
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LOGIQUE ET SYSTEMES EXPERTS 
par Marc PETREMANN 


LA LOGIQUE 


Dès l'antiquité, les philosophes grecs discutaient de la 

nniqne et de son coaportesent sur le discours. Ils étaient 

passés aaîtres dans l'art de triturer les doubles 

LL triples négations et phrases conditionnelles. 
xeaple: 


- je dit que je suis grec 
- je ne dit pas que je ne suis pas grec 


Qu pire encore, des propos récursifs: 


- il est vrai que je suis un senteur 


Or, la lisite de tout discours sur la logique, et surtout 
dans ces tesps lointains, tenait dans le sangue de 
foraalisae du traiteaent de la logique, ce qui faisait dire 
à certains: 


- un cheval est aortel 
- l'hosne est aortel 
- donc, L'hosse est un cheval 


Les philosophes grecs oubliaient un peu que certaines 
structures logiques aboutissant à une sêse conclusion ne 
persettaient quand sêse pas d'affireer que les tenants de 
deux affirsations avaient des propriétés identiques. Vaici 
un cas arithsétique permettant de conclure à l'égalité de 


deux opérations: 


- 5+5 donne 10 
- 2-2 donne 10 
- donc, 5+5 équivaut à 12-2 


Mais ce résultat n'est valide que pour des valeurs 
spécifiques. Il peut en être de aêae si on e55a1e certaines 
opérations en portant notre attention sur l'opérateur: 


- ?2+2 donne 4 
- 242 donne À 
- donc, l'addition équivaut à la aultiplication. 


Tout L'art du asathésaticien consiste donc à dégager les 
règles intervenant dans les propriétés des opérations. Dr, 
qu expriser ces propriétés, il faut faire appel à un 
angage Situé à un niveau supérieur aux syaboles analysés. 


Ce n'est que au siècle dernier que BOOLE? formalisa sous 
une forse TL les règles de la logique. 5es 
travaux et ceux de DE MORGAN ont abouti à définir les 
théorèaes persettant de définir la validité d'un théorèse. 
Pour RAE la logique peraet de savoir si un théorème 
a une solution avant de chercher cette solution. 


Cossent  forsalise-t-on la logique? Prenons dans le 
désordre, une affiraation et une condition: 


soit PF la condition 
soit Q l'affireation 


Gi Ja validité de l'affiraation Q ne dépend que de la seule 
condition P, on peut écrire: 


si P est vrai, alors Q est vrai | 
si Pa'est pas vrai, alors Q n'est pas vrai 


Dans ces énoncés, notre écriture n'est pas encore assez 
forealisée, Erpruntons une écriture plus mathématique: 


P=f 
nf = nl 
Le signe = ne prenant ici un sens d'iaplication gue dans le 


seul Contexte de la logique, le signe n signifiant la non 
vérité ou le contraire. xeaples de Contralres 
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nP contraire de P 
0 contraire de 1 


Oet 1 sont contraires dans un systèae sysbolique ou deux 
sysboles seulesent existent. On Pets resplacer 0 et 1 
par n‘isporte quels autres syaboles: 


- contraire de + 
! contraire de ? 
À contraire de B, etc... 


En autosatique?, la négation est marquée par un trait au- 
dessus de la condition, 


à 
Dans la vie courante, on peut déjà appliquer ceci, pour 


exeaple, à la fonction resplie de l'interrupteur 
cossandant l'allusage d'une aspoule électrique. 


soit L la Jlaspe, a l'interrupteur, on développe le 
systèse logique 


C 


= à la laspe est éteinte 
La 


la laspe est allusée 
Si la laspe sert à signaler un évènesent 5e produisant en 


divers points d'un aécanisae où des capteurs adéquats sont 
installés, on pourra écrire: 


etc... 
Donc, si L dépend de à ou b ou c, on écrira en automatique: 
Lzatbte 


si re variable prend un état, 0 ou 1, il suffit qu'une 
seule des variables passe à À pour que L passe à À: 


L=it1i+0 
ci LM que L=1, le signe + n'ayant pas le sens que lui 
pr 


te l'arithaëtique, LtRanS sais un sens logique 


exprisé par la conjonction OÙ (ou ÜR en anglais}. 


Si saintenant notre laspe dépend de deux conditions et que 
les deux conditions doivent être resplies sieultanésent, on 
écrira en autonatique: 

Lzath 
Le hasard fait bien les choses, car ici, KoPneens 
arithsétique ou logique du syabole donne les sêmes 
résultats, 

aritha. Due 

0x0=0 0+0= 

0x1=0 0#1=0 

lui tif 
Ce qui permet, en autosatique de sisplifier l'écriture: 


Lz=ab le + signifiant ici La conjonction logique ET 
{AND en anglais} et devenant iaplicite. 


Ainsi, pour une condition plus complexe: 
Lzatbta#c 
et s'écrivant aussi sous la forge: 
z ab + ac 
On peut procéder à la aise en facteur: 
L = a(btc} 


forse d'écriture parfaitesent adaise en automatique et que 
l'on traduirait sous une forse soins syabolique par: 


Gi a est vrai et que best vrai ou © est vrai 


Alors | est vrai 
ou en FORTHLog II: 


SI A&BQUC 
ALORS L 


Et le OÙ EXCLUSIF se diriez-vous! Eh bien il n'existe pas. 
Le OÙ EXCLUSIF (XOR en anglais abrégé) n'est que Lise 
d'une structure logique cosposée à pote des fonctions ÊT 
U et NON. C'est le cas du sontage électrique correspandant 
au va-et-vient, L'allusage de là ape est vérifié pour la 
foraule suivante: 


L=ab+tab 


Ce qui s'exprise en bon français par "L est vrai si a est 
vrai ou best vrai aais pas quand les deux sont vrais. 


Toute la logique utilisée dans le sécanisee des ordinateurs 
est dérivée de ces trois opérations logiques. Toute 
fonction cosplexe peut être exprisée à partir d'une 
fonction plus sisple. Ce qui diverge ensuite sont les 
notions de logique cosbinatoire et logique séquentielle. 


LA LOGIQUE COMBINATOIRE 


En logique cosbinatoire, tout système est vérifié par une 
cosbinaison de une ou plusieurs variables logiques. Cette 
forse de logique est très utilisée dans l'étude des 
euseables, théorie aise au point par CANTOR?, Les 
patatoïdes inforses 5e croisant ne Sont qu'une autre 
foraulation de la logique cosbinatoire. 


La logique combinatoire ne tient pas cospte des états 
transitoires, ce qui peut poser quelque problèae quand on 
veut vérifier un systèse du type suivant: 


bs 
as 


ès = 
bs = 


ui est le systèse résultant de l'assesblage de deux portes 
AN aontées tête hêches: 


Un tel s 


È En sathésatique on dira 
qu'il es 


pes est dit oscillant. 
récursif. 


Un autre cas de perturbation issu des transitions sont les 
états pouvant générer un résultat aléatoire, Toujours dans 
le domaine électrique, lors de la sanoeuvre d'un 
interrupteur, la lase de l'interrupteur passe par un état 
transitoire qui n'est ni vrai ni faux. Cet état non prévu 
dans la logique sathésatique doit être neutralisé en 
sodifiant l’ordre des séguences d'essais d'un circuit 
logique. C'est le code binaire AIKEN. 


ordre binaire 


noraal ATKEN séquence: 
000 000 Î 

00! 001 è 

010 0i1 3 

oil 910 4 

100 110 5 

101 111 à 

110 101 7 

fi 100 8 


Dans le code binaire norsal, la cosposition d'un noabre 
obéit à l'opération logique b3+#b24b1 (b3 et b? et bl). En 
passant d'une séquence la suivante, dans certains cas 
plusieurs variables changent d'état en abse tesps. Dans le 
code binaire AJKEN, cel inconvénient disparait, ce qui 
sie les états transitoires indésirables pt générateurs 
d'aléas technologiques. 


En logique électronique, on fait égalesent appel à des 


s'al 


Heprases logiques (chronograsees) où des tesporisations 
sont générées Our tenir cospte de ces états transitoires 
indésirables. Exeaple: 


RE 


d'à recouvresent logique 


5i les deux diagrasses avaient Je front descendant 
sisultanésent en début de signal, il pourrait se produire 
dans certaines situations des cas 0 le second signal 
serait descendant avant le premier, Situation indésirable 
résolue en tesporisant le déclenchesent du signal. Les 
erreurs logiques satérielles dépendent des tolérances et 
pets physiques des systèses exploitant la logique 
(rebonds dans les cosautateurs Capacités parasites sur 
COSPpean Es et selt-induction sur lignes, 
etc...) 


induction 


Pour résoudre les cas cosplexes et extraire la foraule 
logique contrôlant un s« Stèse, on utilise en autosatigee 
divers outils cosse les satrices des états logiques et Les 
tableaux de KARNAUBH. 


La liaite persettant une exploitation sans faille de ces 
outils est rapidesent atteinte par le nosbre de variables À 
traiter rendant les tableaux de KARNAUBH inexploitables 
que un grand noabre de variables interviennent, Le nosbre 
e cosbinaisons possibles est expriaé par la foraule N-2v 
où v est le noabre 


de variables, 


LOGIQUE SEQUENTIELLE 


On peut exploiter les états transitoires pour “aéacriser” 
cet état et le conserver dans une variable, Prenons pour 
rite un bouton poussoir. J'appuie dessus et aa laspe 

use; je relâche le bouton poussoir et la laspe reste 
allusée. Pour qe la laspe reste allusée, il faut que le 
changesent d'état du bouton soit pris en coëpte par un 
organe de aésorisation. Cet organe, un relais À 
verrouillage en l'occurence, est lui aêae une variable pour 
la laspe, Ainsi détersine-t-on la suite logique: 


En faisant 


référence à lui-sêse, 
l'écriture de 


on peut sisplifier 
X en déclarant! 


atyx 
X 


Si on set un autre bouton b en série sur le circuit x, on 
coupe X en déclarant: 


X=at;:pb 


ce oui reset X au repos quand on appuie sur b. 


LA LOGIQUE NEBATIVE 


Dans certaines situations, le nosbre de cas où le résultat 
des cosbinaisons aboutissant à un résultat faux devient 
restreint, il est plus intéressant de tenir cospte de ces 
cas. 


Dans la vie courante, la nique négative peut être un 
facteur de sécurité, Le systèse de freinage VESTINGHOUSE 
est un cas de ne négative: s'il y a de 
les freins sont ébloqués, s'il n'y à pas de 
freins 5e bloguent. 
un 


la pression, 
Ês,. ression, les 
Ainsi, en cas de rupture dans la 
continuité d attelage ferroviaire, le tuyau 
d'alisentation aaintenant la pression dans les freins étant 
rospu, le freinage s'asorce et le train s'arrête. 


notassent en 


les circuits logiques 
ique négative. 


En électronique, 
j fL exploitent beaucoup la 


technologie T 
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Ces circuits se retrouvent dans toutes les parties 
matérielles des ordinateurs {composants de la série 7hux, 
ou Suxx pour le satériel aux normes silitaires). 


Dans un systèse forsel, soins il y a d'exceptions, soins le 

nosbre de règles à appliquer est élevé. S'il ne reste 

FU is on traitera en priorité l'exception en 
claran 


Si (condition) 

Alors le systèse est faux 
si le système est NON faux 
alors il est vrai. 


La deuxièse règle servant à valider toutes les autres 
situations. 


Certaines foraes ponts cosse NON(A+B) sont développées 
sous la forses NONCAŸ ET NON(B), soit: 


A+h A.f 
C'est L'application de la loi de DE MORGAN. 


LOGIQUE ET SYSTENES EXPERTS 


La logique dans un dite expert applique toutes les 
régles de La logique à des énoncés du type SE condition 

action. Selon le type de système expert utilisé, les 
conditions peuvent être des expressions exploitant des 
grandeurs arithaétiques, des chaînes de caractères, des 
valeurs booléennes ou des prédicats. 


Concrètesent, tout systèse inforsatique traite dans un 
langage quelconoue des propositions logiques à partir 
desquelles diverses actions sont envisagées. Une 
proposition du type 


SJ jee acheté non billet de train 
ALORS je peux voyager 
SI je suis à l'heure à la gare 
ALORS je peux prendre le train : 

SI j'ai acheté son billet de train ET je suis à 
l'heure à la gare 
ALORS je peux aonter dans le train 


est nettesent plus explicite qu'une proposition du type: 


BILLET? IF VOYAGER ON THEN 
RETARD? JF PRENDRE ON THEN 
VOYARER @ PRENDRE @ AND IF MONTER ON THEN 


Mais les aécanisees logiques restent sisilaires et sont 
indpendants de la nature du problèse à traiter, Si je 
resplace train par allusette et billet var cigarette, on 
peut parfaitesent résoudre les propositions suivantes: 


SI ie acheté sa cigarette d'allusette 
ALORS je peux voyager 
SI je suis à l'heure à la qe 
ALORS je peux prendre l'alfusette 
ST j'ai acheté aa cigarette d'allusette HT je suis à 
L'heure à la gare 
ALORS je peux aonter dans l'allusette 


ce qui est un peu confus pour notre entendesent sais est 
tout à fait logigre (encore un peu de confiture avec votre 

EU et LEVIS CARROL, prend-il du sucre dans son 
TOUT... 


Voyons comment exposer des propostions logiques et les 
résultats. Pour ce faire, nous aettrons en abscisse les 
variables, en ordonnée les résulats des règles dont 
dépendent les variables: 


variables ab 
svcthpe D E. 


: HE Bindique que L dénend de l’état des variables 3 
e 


Si on introduit olusieurs variables. on obtisrt + tihleau 
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suivant: 

variables abs 

systèse LBI 
ss 


Le résultat d'une condition peut devenir lui-sêse condition 
d'une autre règle: 


variables 
système LL 


la variable L résultant de l'état du systèse L. Donc P 
dépend de 1 qui dépend de L dépendant de à et b 


Enoncées dans cet ordre, l'état de P peut être analysé par 
n'iaporte quel prograsse informatique, Mais si on aodifie 
l'ordre des règles, un seul passage ne Sera pas suffisant 
pour déterainer l'état de tout le systèse. Enonçons le 
contenu du dernier diagrasse: 


ALORS P 


On ne tiendra pas cospte dans cette foraulation des 
différences de caractères sajuscules-ninuscules, On déclare 
cosse vraies les propositions a, b et € dans une base de 
faits connus et vérifiés: 


on teste la prenière règle SI a ET b, le résultat l'est 
vrai 
an’ teste la seconde règle STbetc, le résultat « est 


vrai 
on teste la troisièse règles SI het 1, 1 étant déclaré 
vrai par La presière règle, le résultat p est vrai. 


Hodifions l'ordre des régles: 
SI bET I 


ALORS M 


on teste La presière règle SI b ET 1, le résultat p ne 
peut être trouvé car 1 n'a pas encore été déclaré par 
aucune règle précédente. 

on teste les He suivantes, 


le résultat est inchangé 
par rapport aux pr 


cédentes conclusions. 


En aodifiant l'ordre des régles, on à aodifié le résultat. 
ür cette différence n'existe que si on fait un seul passage 
dans la liste des règles. Un second passage donne uie 
solution à la preaière régle. 


Le nosbre de passages à effectuer est contrôlé par la 
saturation de toutes les régles, c'est à dire lorsque 
toutes les règles ont été vérifiées, que le résultat soit 
déclaré vrai où faux. C'est le principe de fonctionnesent 
du langage PROLOG. 


En partant de faits connus, nous vérifions une série de 
régles jusqu'à saturation, Îe déroulement des opérations 
est effectué en descendant, C'est le chainage avant, Mais 
cossent connaître Les conditions contrôlant un résultat. 


Partons du résultat P: 


P dépend de bet 1 
b ne dépend que de lui-abse 
1 dépend de a et b. 


ph 
Lab 


La recherche des conditions dont dépend le résu't:t d'un: 


règle, c'est à dire une hvoothèse, 
arriôre, 


s'appelle le chainage 


Le chaînage arrière n'est possible qu'en logique des 
propositions (calculs des prédicats), Si on Fait intervenir 
des ee es numériques dans les parties conditions, seul 
le chainage avant reste cohérent. 


Le chainage avant délivre des conclusions aultiples en 
fonction d'un certain nosbre de données. 


Le chainage arrière délivre les propriétés peraettant de 
vérifier une hypothèse donnée, 


LA RECURSIVITE 


La récursivité n'est pas un sécanisee obligatoire pour 
construire et faire fonctionner un AE expert, 1 
existe des systèmes experts écrits en BASIC qui donnent des 
résultats honorables®. Les preniers langages inforsatinues 
persettant de traiter des listes de aänière récursive et 
disponibles sur des aicro-ordinateurs sont PASCAI, LISP et 
LO60. PROLOG est Le dernier né de la série et sesble avoir 
la faveur des développeurs. 


L'ennui est que ni PASCAL, LO60 ou LISP ne peraettent de 
jErree des systèses experts ouverts, c'est à dire offrant 
à AL de travailler en logique et d'exécuter des 
instructions de bas niveau en intégrant les deux 
possibilités de sanière intise. 


LES SYSTENES EXPERTS 


Un systèse expert est avant tout une série de règles à 
partir desquelles un prograsse de traitement appelé aoteur 
d'inférence va émettre des conclusions. Ces régles sont 
données en vrac et le aoteur d'inférence va vérifier les 
règles les unes après les autres. 


Le principe d'action d'un aoteur 


d'inférence est siaple à 
priori, sais c'est la méthode 


de représentation de la 


connaissance qui définit les perforsances d'un systèse 
expert. 
Si le systèse expert se lisite au seul calcul des 


prédicats, on aura des régles de la forme! 


S1 CIGARETTE 

ALORS A-DE-QUOI-FUNER 

SI ALLUMETTE OÙ BRIQUET 

ALORS A-OU-FEL 

SI A-NE-QUOT-FUMER FT A-DU-FFU 
ALORS PEUT-FUNER 


Si l'analyse porte sur le contenu de la chaine 
alphanusérique située après SJ, ALORS et les conjonctions 
OU et ET, on peut devenir plus exolicite! 


SI jet une cigarette 
ALORS j'ai de je fuser 
ST j'ai des allusettes 
OÙ js un niques 
ALORS j'ai du feu 
ST j'ai de quoi fuser 

ET Ja du feu 

ALORS je peux a'en griller une 


Mais attention, une coguille, une lettre en trop où en 
soins, un accent oublié et les chaines ne sont plus 
sesblables, ce qui perturbe le résultat, Pour éviter ce 
joue de problèse, il faudra gérer des algorithaes traitant 
a pré-équivalence de chaînes. Exeaple! 


soit deux chaines alpanuaériques Ed par CHI et CH? 

- Féduire tous les espaces aultiples À un espace 

- transforser tous les caractères accentués en leur 
équivalent non accentués 

- transforser ou ne pas tenir cospte des differences de 
caractères MAJ/ain 

- admettre au moins une erreur (ou plus...) par sot ou 
groupes de aots (TELLE =p= TELE) selon la taille de la 


chaîne 

- rechercher dans une librairie tous les dininutifs et 
abréviations synta-ionnz (ST =n= SAINT, =p= SUR, STE =n= 
SOCIETE, etc..) 
Ces options pouvant être prises en cospte ou non selon le 
degré de pré-équivalence recherché. 


Un système expert adaettant un haut 
équivalence adsettra des siailitudes 
énoncés: 


SI ie va1s à ILLKIRCH-GRAFFENSTADEN 
ALORS je ferais un détour par NIDERSCHAEFFOLSHEIM 
PE vais à ILKIRCH GRAFFENSTADEN 


niveau de pré- 
entre ces deux 


L'annuaire électronique (disponible par le 11) accepte là 
notion de pré-équivalence en découpant en syllabes et en 
effectuant une comparaison phonétique: 


ROULANGERTE =p= BOULENJERI 
BOU =p= BOU 


GE =pz JE 
RIE =p= RI 


Si vous envisagez de créer un systèse expert capables de 
RS perforaances, vous avez du pain (:p= pin) sur la 
planche. 


Rapidesent, on peut envisager de créer un systèse expert 
capable d'effectuer des traitements et des tests sur des 
grandeurs nusériques et alphanusér iques: 


SI TEMPERATURE > 45 
ALORS JE RISQUE UNE INSOLATION CARABINEE 


Le prédicat TEMPERATURE doit accepter plusieurs types. Un 
type logique, un jRe numérique. Si votre systèae expert 
est écrit en PASCAL, vous aurez déjà du fil à retordre. En 
LO60 ou en LISP ça ira encore! 


DONNE "TEST 45 

EC : TEST affiche 45 

DONNE "TEST OC CHIEN CHAT POULE J 

EC TEST affiche CHIEN CHAT POULE 
On oublie BASIC. En FORTH, il faut définir un nouveau type 
de variable. C'est ce que fait FORTHLOG en créant des 
$VARIABLE et en ïinstanciant Leur contenu, La siaple 


déclaration d'une $VARIABLE dans les faits l'instancie 
cosse prédicat ayant une valeur “vraie”, 


faits FORTHLOS: RHUM COCA VODKA GIN MARTINI 
règles FORTHLOG: 


ST RHUM COCA 

ALORS CUBA-LIBRE 

ST MARTINI CITRON 

ALORS NARTINI-ON-THE-ROCKS 


Votre bar ne contenant pas de citron, vous ne Pourriez Vous 
faire un NARTINI-ON-THE-ROCKS. 


Ici, la régle ne donne pas les quantité sais seulesent un 
PREDICAT. Si vous avez du RHUN et du COCA ice qui a été 
déclaré dans les faits, donc vrai), la partie action 
définit un nouveau prédicat CUBA-LIBRE, 


FORTHLOG IT pee de aélanger Les prédicats et les 
définitions FORTH selon un autre principe très siaple: 


si un got n'existe pas 
on vérifie si c'est un nosbre 
et on l'espile 
sinon on crée une $VARIABLE 
sinon 
on exécute le aot 
in5i, 


Une $VARIABIE déjà créée est exécutée de la eêae ganière 
qu'un aot FORTH. La partie action d'une règle résultat dans 
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FORTHLOG sera de la forse: 


SI CUBA-LIBRE 
ALORS RECFTTE-CURA-1 TBRE 


en ayant pris soin de définir le aot RECETTE-CUBA-LIBRE, 
: RECETTE-CUBA-LIBRE (€ ---) 
PARK ." RECETTE DU CUBA LIRRE" ER CR Ck 
." 1/4 RHUN” CR 
." 3/4 COCA COLA" FR; 


Dans FORTHLOG 1.86%, un nouveau type de données est défini, 


le ‘ee . Ce type de données pos de définir un 
aot FORTH auquel est rattaché un fichier ASCII de taille 
quelconque: 


DOCUMENT CUBA-LIBRE CUBALIBR. DOC 


Et le Fichier CUBALIBR.D0C contient la recette coaplète du 
cocktail: 


“ Pour faite un CUBA-LIBRE comse dans Jes iles: 
- prendre un grand Verre 

- y settre deux grns glaçons 

- jeter dedans une peau de citron vert 

- Verser Un dois de rhum blanc 

- resplir avec du coca cola 


Appréciez, COnsORAez avec aodération.” 


Un fichier <fich.D0C peut avoir une taille quelconque. Jl 
est créé à l'aide d'un éditeur de texte. Son affichage sur 
l'écran vidéo est réalisé par blocs de 24 lignes de 80 
caractères, 


En FORTHLOR II, on peut exécuter un aot où une SÉQUEnCE de 
aots FORTH n'ieporte où dans La base de connaissances: 


- dans les faits 
- dans Les règles univers, contexte et résu]tat, 


Les faits ne sont validés qu'une seule fois. Les règles 
univers et contexte sont vérifiées jusqu'à saturation. Les 
règles résultat ne sont vérifiées qu'une seule fois. 


D'autres LUS de systèmes experts permettent 
d'exécuter des instructions de sanière algorithaique. C'est 
le cas de GURU, sais les instructions Sont spécifiques à 
GURU et ne peraettent pas un interfaçage au systèse de 


sanière aussi profonde que ce que réalise FORTHLOG, 


REFERENCES 
Manuel PROLOG pour THANSON 


MATHEMATIQUES POUR INFORMATICIENS, 
série SCHAUM ed MAC GRAU HILL 


INTELLIGENCE ARTIFICIELLE ET SYGTEMES EXPERTS 
Adrien LFSCORT, ed CEDIC NATHAN 


SUPPORT DE COURS GURU 


HISTAIRE DES MATHEMATIQUES 
Encyclopédie LARQUSSE 


1. feorge ROOLE (BR, 1815-1864), À publié en J8u7 son 
presier ouvrage, THE MATHEMATICAL À ALYSYS OF LOSI, 
RH contesporain de celui publié par DE HORFAN, 
FORNAL LOGIC OR THE CALCUEUS OF INFERENCE. Ses travaux 
sont à Ja base des technioues exploitant la lngique 
(autosatisue, inforsatique) azis aussi les aathéaatiques. 


2. La notation utilisée en Logique est dépendante du 
domaine dans  Llaguelle elle est exploitée. Pour des 
raisons de facilité typographique, nous nous limiterons à 
celle utilisée en autoaatisae, notre oro0gs n'étant pas de 
faire un cours de aathématioue appliquée. 


3. Georg CANTOR (D, 1846-1918), À publié en 
une Thèse sur des transforaations des 
ternaires quadratiques. À entretenu avec Richard 


1869 
forges 
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DEDEKIND une abondante correspondance où toutes les bases 
de la théorie des ensesbles ont été exprinées, Ce 
qui à donné Lieu à La parution d'une série d'articles dans 
ce domaine dès 1873 et entre 1495 à 1897. 


4. Augustus DF MORGAN (FE, 
5 fondateurs 


1808-1871). Avec  B.ROOLE est 
un de 
FAñMAi LORIE (HAU7}. 


de la logique aathésatique. Auteur de 


5, J.KRUTCH | LRISR ECS d'Iutelligence Artificielle en 
BASIC" Ed EYROLLE 


6. FORTHLOB ITR en cours de préparation. La disquette 
de aise à niveau sera ES à tous ceux ayant déjà 
acquis la version FORTHLOG IT. 


GE NOUVEAUX UTILITATRES 
POUR LES MANIPULATIONS SUR LA PILE 
ET LE PASSAGE DE PARAHETRES EN FORTH 


ar 
Paul BARTHOLDT 
Qbservatoire de Fenève (CH) 
(1982 Rochester Forth Conference) 


Depuis l'année dernière à GRENOBLE, nous avons 
considérablesent accru les sécurités dans l'utilisation de 
FORTH en rajoutant des trappes pour La détection des 
erreurs de cospilation. Mais nous n'avons rien fait pour 
faciliter les aanipulations de pile et beaucoup d'erreurs 
en proviennent, La seule “nouvelle” coasande est ROLL de 
KPND Cet ROCK de St Addrews), Elles sont trés utiles sais 
pas plus aisées que les précédentes. 


Le schéaa proposé plus loin est vraisent différent de 
toutes les opérations de aanipulation de pile, Il facilite 
l'utilisation et la lecture ultérieure. En fin de cospte, 
il est conçu, après adaptation à FORTH, de aanière 
sisilaire à ce qui est disponible sur les cospilateure 
ALGOL ou PASCAL. (voir le concept DISPLAY expiqué par 
Organick dans A Systes Organisation, série 8 5700- 
6700", Prentice Hali, 1973). 


UTILISATION: 


Dans une procédure, en principe avant d'y accéder mais pas 
nécessaireaent, déclarez le nosbre €n} de parasètres 
utilisés par cette procédure avec la cosaande 


<n> PARAMETER 


Puis dans la procédure, et n'isporte où après la 
déclaration, vous pouvez eapiler une valeur quelconque d'un 
de ces parasètres anec la cosaande PAfn 


où n est un nosbre cospris entre 1 et {7, o une lettre 
cosprise entre AetP, 


PARL (ou PARA) se réfère au paramètre Le plus bas dans la 
pile, PARN au sommet de la pile après exécution de la 
cossande PARANETER, et ceci indépendessent de tout éléaent 
rajouté depuis sur le sommet de la pile de données. Ceci 
restera vrai tant que nous ne rencontrerons pas le aot ":° 
qui ferme la procédure. 


Ce schéma peut être suivi aveuglésent par une procédure 
Rene elle-aêse et utilisant ce schéma, Il peut être 
uti je indéfinisent par une procédure récursive (voir 
exeaple). 


EXEMPLE: 


Pour exesple, nous allons coder en FORTH la procédure 
donnée par DEJKSTRA pour résoudre le oroblèae des tours de 
HANOT (dans  "Structured Prograasing", Academic Press, 
1972). DIJKSTRA donne ie code suivant en notation ALGL: 


begin procedure aovetover (integer value #,A,B,C) 
begin if a=1 then aovedisk TAC) 
else begin aovetover (M-1,A,C,B}; 
aovedist (AC), 
novetover (H-1 BAC) 
sovetover IN, 12,3) 


La procédure est récursive, avec qe de quatres 
paramètres par valeur. La traduction en FORTH donne: 


: HANOI 4 PARAMETER 
PAR! 1 = IF 
PAR PAR HOVEDISK 
PARI 1- PAR2 PARU PAR3 ITSELF 
PAR2 PARU MOVEDISE 
PART 1- PAR3 PAR? PAR& ITSELF 
THEN 
4 HDROP : 
: MOVEDISK SWAP " DE" ,." VERS" .[R; 
: HANOI CR CR * TOURS DE HANOI AVEC * OUP . * DISQUES" 


CRCR* IL FAUT DEPLACER LES DISOUFS : “ CR CR 
1 2 3 HANOI : 


4 HANOI 


TOURS DE HANAI AVEC 4 DISQUES 
IL FAUT DEPLACER LES DISQUES : 


VERS 2 
VERS 3 
VERS 3 
VERS 2 
VERS 1 
VERS 2 
VERS 2 
VERS 3 
VERS 3 
VERS 1 
VERS 1 
VERS 3 
VERS ? 
VERS 3 
VERS 3 


L'utilisation des seuls aots NOVER (équivalent de PICK) ou 
5° ou toute construction siailaire rend le programe 
beaucoup plus complexe et plus difficile à aettre au point 
et à cosprendre: 


* MOVEDISK SWAP * DE" .* VERS " . CR: 


: HANOI RECUR 4 NOVER ! = IF 2 NOVER 2 NOVER MOVFDISK 
ELSE & NOVER 1 - 4 NOVER 3 NOVER 5 NOVER ITSELF 

3 NOVER 2 NOVER HOVEDISK 

4 NOVER 1 - 3 NOVER 5 NOVER 4 NOVER ITGELF THEN 

OROP DROP DROP DROP ; 


: TOURD'HANOI CR CR CR * DFPLACE LE DISQUE “ CR CR 1 2 3 
HANOI CR ER ; 


(Pour ceux qui considèrent que la récursivité est un luxe, 
écrivez ce prograsse produisant le aëse résultat sans 
passer par la récursivité!} 


Resarques: 


- ITSFLF est un appel récursif À la procédure courante. 
Il est défini par : ITSELF LAST @ , ; IMMÉDIATE 


- PARI équivaut ân, 
PARA à À, PAR3 à Bet PARU à C 


= PARAMETER redéfinit un nouvel environnesent à chaque 
exécution de HANOI, directement ou par ITSELF. 


- portez votre attention sur Le fait que chaque exécution 
de PARAMETER utilise trois aots sur la pile de retour (plus 
l'adresse de retour de la procédure en cours}, La taille de 
la pile de retour doit être prévue en conséquence. 


INPLEMENTATION: 


L'iaplésentation utilise une siaple zone de stockage 
tesporaire dont la trace est ie sur la pile de 
retour et pointe sur un "paquet de données", RP ne peut 
être utilisé si Sa valeur est changée par O0 ou une 
cosaande sisilaire. 


Le paquet de paraaètres consiste en trois sots: 

- une adresse de retour de pseudo terainaison de 
procédure laguelle détruit Le paquet, puis exécute le 
retour norsal de la procdure, 

- Un pointeur sur la première donnée de la pile (PARL}. 


- une copie du précédent contenu de TEMP qui sera 
réinstallé en fin de procédure. 


ME one été réalisée sur un UNIVAC 1108 et un HP 


21MX FORTH, Mais les coëmentaires vous aiderons à réaliser 
une adaptation sur votre systèse personnel! 
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ADO! 


SP 
5) 
RP 


RP 


RP 


0 INT 2 


Load 
Add 

Push 
RCLA 
Push 
REL3 


Push 
Pop 


POP 
NEXT 


CODE PARAMETER 


zone de SRE pointant sur le 
dernier paquet de données entré. 


{ code pour détruire le paquet de données de la pile de 
retour} 


ORCI RP I} Load 
STR2 


copie la valeur dans la pile de retour 
stockage tesporaire, réinstallation du 
précédent pointeur. 

dépile deux sotsde la pile de retour 
sort de la procédure 


{ pseudo-terainaison) 
HERE INT3 


copie la prochaine adresse dans INT3 
{voir PARAMETER) 


adopte le précédent code 

set une fin à cette pseudo-terminaison, 
Nous entrons ici en fin de procédure 
principale. 


Ajoute Le nosbre de parasètres au 
igu de pile , 
nous prélevons l'adresse du premier 
pins : 

n l'espile sur la pile de retour. 
Chargesent de la valeur dans la zone de 
stockage teaporaire. 


On l'espile sur la pile de retour. 
Chargement de l'adresse de la pseudo- 
terainaison 

On L'espile sur la pile de retour. 

dep le le noabre de paragètres de la 
pile. 
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{code pour eapiler au sonset de la pile le nièse parasètre) 


ORCO 
2 


: PARN HERE 
] 


40 
{- 
LIT 


PARN doit être exécuté en cospilation. 
Iaplésentation coaplète de PARAMETER et PARN sur HP 21MX 


BLOCK 21 (258) 
; { PARAMETER ET PARN OÙ N = 1 .. 18 OU A. P P.BOI ) 


3 ORCI RP I} LOA, OUP GTA 
WHERE ADO1 ‘ : , HERE EvAP , SWAP 
; CODE PARAMETER ËP LDA, 5) 


7 
19 


Hi 
12 ORCO LDA 


13 ICI) 


15 IMP PARN 
18 :5 

17 :5 
20 :S 


1 17 AND 
IN 


EN PUgu 
du = PARN HERE © + & 400 / 17 AND !- MINUS LIT, ADO0 , , ; 


ACL? Charge l'adresse d'un paquet. 

Add Charge l'adresse du pointeur du ler 
arañètre. 

Load Prend l'adresse du presier parasètre, 

Add Ajoute le contenu du aot suivant PARn, 
lequel est (n-1), 
Nous avons saintenant l'adresse du niae 
arasètre, 

Load Prend la valeur du parasètre 

Incr Incréeente IC pour passer au-dessus de 


{n-1). 
Push Fapile la valeur au soset de la pile 
248€ 


us 
AD00 , ;  IMMEDIATE 


RP LDA, TWO ADA, RP GTA, NEXT, 


A8, 

RP LDA, -ONE ADB, À I) STA. 

OUP LOA, -ONE ADË, B I} STA, 

-ONE ADÈ, DUP STE, 

SUAP LA: B I) STA, RP STE, POP, 
INA, INA, À 1) LDA 

À 1) LDA, IC ISE, Pusu 


